home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / JOY < prev    next >
Text File  |  1997-04-05  |  194b  |  3 lines
  1. JOY: procedure;arg w;a=import(d2c(14675978+w*2,4),2);b=~bittst(import("00BF E001"x,1),6+w)*10
  2.   return x2d(translate(c2x(b2c(bittst(a,8)bittst(a,9)bittst(a,0)bittst(a,1))),"963147","B31EC4"))+b
  3.